home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / ipl / 00003.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  832 b   |  29 lines
  1. on startMovie
  2.   global thepath, soundon, lookFirst, rubspeed, mysoundlevel, soundflag
  3.   set rubspeed to 13
  4.   if not (the colorDepth = 8) then
  5.     alert("How Many Bugs Requires Windows to be running in 256 colors")
  6.   end if
  7.   set lookFirst to the pathName
  8.   if not (lookFirst contains "howmany") then
  9.     set lookFirst to lookFirst & "howmany:"
  10.   end if
  11.   set sfile to FileIO(mnew, "read", "config.cfg")
  12.   if objectp(sfile) then
  13.     if the machineType = 256 then
  14.       set temp to sfile(mReadLine)
  15.       set thepath to char 1 of temp & char 2 of lookFirst & ":howmany:"
  16.       put "clipping to howmany"
  17.     else
  18.       set thepath to thepath & "howmany:"
  19.       put "Adding howmany 2nd time"
  20.     end if
  21.     sfile(mdispose)
  22.   else
  23.     set thepath to lookFirst
  24.   end if
  25.   set soundflag to 0
  26.   set mysoundlevel to 5
  27.   set soundon to 1
  28. end
  29.